|
100
|
Is is possible to toggle the selection of dates, such the first click selects the date, the second click unselects it, and so on
local var_Calendar as ICalendar
oDCOCX_Exontrol1:OnResizeControl := exCalendarFit | exHideSplitter | exResizePanelRight
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:AllowToggleSelectKey := exLeftClick
var_Calendar:AllowSelectDate := exLeftClick
var_Calendar:SingleSel := false
|
|
99
|
How can I change the background color for selected dates in the calendar panel, so always is the same no matter if the control loses the focus
oDCOCX_Exontrol1:[Background,exCalendarSelBackColorUnFocus] := oDCOCX_Exontrol1:[Background,exCalendarSelBackColor]
oDCOCX_Exontrol1:[Background,exCalendarSelForeColorUnFocus] := oDCOCX_Exontrol1:[Background,exCalendarSelForeColor]
|
|
98
|
Is it possible to specify a different background color for the calendar panel
oDCOCX_Exontrol1:[Background,exCalendarBackColor] := RGB(240,240,240)
|
|
97
|
How do I change the control's border, using your EBN files
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Appearance := 0x1000000 |
|
|
96
|
Is it possible to prevent showing the calendar at all
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
oDCOCX_Exontrol1:ScrollBars := exNoScroll
|
|
95
|
How can I change the visual aspect only for a specified event
local var_Events as IEvents
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00"))
var_Events:Add(SToD("20120620 10:30:00"),SToD("20120620 13:00:00")):BodyBackColor := 0x1000000
var_Events:Add(SToD("20120620 13:00:00"),SToD("20120620 15:00:00"))
oDCOCX_Exontrol1:[DefaultEventPadding,exPaddingAll] := 2
|
|
94
|
How can I change the visual aspect of the events
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exScheduleCreateEventBackColor] := 0x1000000
oDCOCX_Exontrol1:[Background,exScheduleUpdateEventsBackColor] := 0x1000000
oDCOCX_Exontrol1:BodyEventBackColor := 0x1000000
|
|
93
|
Is there any event to let me know once an edit has been edited
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "End exScheduleEditEvent(15)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
METHOD OCX_Exontrol1LayoutStartChanging(Operation) CLASS MainDialog
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
OutputDebugString(String2Psz( "Start exScheduleEditEvent(15)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:AllowEditEvent := exLeftClick
oDCOCX_Exontrol1:AllowSelectEvent := exDisallow
oDCOCX_Exontrol1:DefaultEventLongLabel := ""
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:VisualDesign := "gBFLBWIgBAEHhEJAEGg7IAUHXI6g0MAAmhULikUCIgg6sh4AgRCJ0Ui8HjKTj6AADACAxRDAMgBQKAAzQFAYZhpBaERiHEZoJhUAIIRZGMQxXAcMQvDSKQRhEAoJDgN4kQKNYyQYAAYhuGaPBhASQJUhkMocR7HMygBJkUABEyYaFHdIFCQ1DykJzkCbqAgkMYeDRHQxTdQsEgpDQMIRpGA5eb+XgAV4/cTSYKQahLMizJYGUYLHgma5tTTWcTVPLVFRrJiTYRlKTJOjCCQ0ATdUyzPAeCRzQ6QJ5kUZ6CgSUpGRjkhY6agkF6VVxCNg2BT8KzxRoAKhiGpKHpaCaUQLWMB5PaoAR8fLYAA2B6bDhGaa2XAAFr2VZkWSUBBpnSWo8kYIg1D6NBuGyIhYnCXx5kuHZcjUAAOAcDxbF2L5mmKPIOl2Ox7l2XJVGAfRMh8CABiyYpgi8E5pFSRp4DQHBkiKOQug4ChpmqPRoiAco6HePxJDUXQAASCYpHAWpUHmGxmlwdphlwQJWncMQzFwXknCodJcEcXRiHYUIYCwAByhyaB1lAeReDgTgAHwU44GoHB3lUJgFi2BgYCYGYGgkFx2C2ax+lARI9FKA5YHiMR2guHBHlUPIChuBRJk4XIjiUKg8GsY5ohkZoQh2dJ6AYZxfFkHZoF2E5gkQOBPgMIJJHwS5WJmMRvhINwRHKAAdCieZyHEHgxEAaQYkcQZUHIGRUnQJIuAGEAxAgTYclGFBRAMCgQhgTZnEIIQ0AweIdCYZYGgaIZbDaTJbiKaJKDaDojmkChGhKI5bDoHoWD+aIqDiPImmmSh2h6J5qAqBoi3yeghjCIwpnIeoqiqapKjaLormsCouh+IwrBqVo2i2a4KlqHItY0Fo+i+bALAaF4riuOmPjCLILCaSYxCmOpwh6MotAsRoWjMC5LDqUo1m0GxSlaNgtktlgxiuWx2mKL4tnMbpHjiboKB6ZY5m6G42muOBuluJpvjObwbkqLYxG4a5CnWOIvDubpoiyKZrG6fo3HACxWg6OwwDsYoriUGwMCMCY0iqOgnBKQ4wnsQwUFgcR8FaSJGE+fBzBqMAxkqZwikichLlKFxAEAgIA=="
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):Editable := exEditLongLabel
var_Events:Add(SToD("20120620 10:30:00"),SToD("20120620 13:00:00")):Editable := exEditLongLabel
var_Events:Add(SToD("20120620 13:00:00"),SToD("20120620 15:00:00")):Editable := exEditLongLabel
oDCOCX_Exontrol1:[DefaultEventPadding,exPaddingAll] := 2
|
|
92
|
I've noticed that the background of the event while editing is transparent. Is it possible to change it
local var_Events as IEvents
oDCOCX_Exontrol1:AllowEditEvent := exLeftClick
oDCOCX_Exontrol1:AllowSelectEvent := exDisallow
oDCOCX_Exontrol1:DefaultEventLongLabel := ""
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:VisualDesign := "gBFLBWIgBAEHhEJAEGg41hhjNcHhgAE0KhcTiYREEHDMMgRCJ0Ti0ShEGhiAADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKL5CgkBYJBrNM5SFIAEQSKA0TDOQ5To5jEBzIxIIjaJhoNoJChNU4TIDELphECdYqUCq6cp2XgAJhYNhWHYgAIjM60LRtIAELq2bpvXAACCXHalazsAA+bxvK67cAAd5/YBgOBAAaGC4NQ7EAANHC8Mw3DgAGLkORZHigACzS7MMxzIACQx3HqfaAABK6HomS5NUTTNR0TLNAy3HqWZpsOYZBima4lRTHNxxTBMIz3Bp+YI4DgC5FnOCx6jkXY5DcSxlkOGxujMWo6DaCwFhOKzgFeOw1lAAoXjuXpvngAAQBAgI"
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):Editable := exEditLongLabel
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00")):Editable := exEditLongLabel
var_Events:Add(SToD("20120620 13:00:00"),SToD("20120620 15:00:00")):Editable := exEditLongLabel
oDCOCX_Exontrol1:[Background,exScheduleEditEventBackColor] := RGB(255,0,0)
|
|
91
|
How can I edit the Event.LongLabel property of the Event rather than ExtraLabel
local var_Events as IEvents
oDCOCX_Exontrol1:AllowEditEvent := exLeftClick
oDCOCX_Exontrol1:AllowSelectEvent := exDisallow
oDCOCX_Exontrol1:DefaultEventLongLabel := ""
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):Editable := exEditLongLabel
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00")):Editable := exEditLongLabel
var_Events:Add(SToD("20120620 13:00:00"),SToD("20120620 15:00:00")):Editable := exEditLongLabel
|
|
90
|
Is it possible to edit the event at a single click rather than double click
local var_Events as IEvents
oDCOCX_Exontrol1:AllowEditEvent := exLeftClick
oDCOCX_Exontrol1:AllowSelectEvent := exDisallow
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00"))
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00"))
var_Events:Add(SToD("20120620 13:00:00"),SToD("20120620 15:00:00"))
|
|
89
|
How can I prevent editing the events
oDCOCX_Exontrol1:AllowEditEvent := exDisallow
|
|
88
|
How can I prevent selecting the events
oDCOCX_Exontrol1:AllowSelectEvent := exDisallow
|
|
87
|
The event gets blue when selected. It is possible to draw a frame instead
oDCOCX_Exontrol1:SelectEventStyle := exLinesThicker | exLinesSolid
|
|
86
|
Is there an event that fires when the user selects a different day/week/month
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "should be on exCalendarSelectionChange(1)" ))
RETURN NIL
METHOD OCX_Exontrol1LayoutStartChanging(Operation) CLASS MainDialog
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
OutputDebugString(String2Psz( AsString(Operation) ))
OutputDebugString(String2Psz( "should be on exCalendarSelectionChange(1)" ))
RETURN NIL
|
|
85
|
Can I use and display just the Caption of the Event
local var_Events as IEvents
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%5%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):Caption := "caption 1"
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00")):Caption := "caption 2"
var_Events:Add(SToD("20120620 13:00:00"),SToD("20120620 15:00:00")):Caption := "caption 3"
|
|
84
|
How can I use the Caption property of the Event
local var_Event,var_Event1 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><b><%=%5%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):Caption := "caption 1"
var_Event := var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00"))
var_Event:LongLabel := ""
var_Event:ExtraLabel := "<%=%5%>"
var_Event:Caption := "caption 2"
var_Event1 := var_Events:Add(SToD("20120620 13:00:00"),SToD("20120620 15:00:00"))
var_Event1:LongLabel := "<%=%256%><br><b><%=%5%><br><fgcolor=808080>another text"
var_Event1:Caption := "caption 3"
|
|
83
|
Is it possible to display a view of appointments with more than one person
local var_Events as IEvents
local var_Group,var_Group1,var_Group2 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Mihai")
var_Group:EventBackColor := RGB(255,0,0)
var_Group:HeaderForeColor := var_Group:EventBackColor
var_Group:Visible := true
var_Group:Title := var_Group:Caption
var_Group1 := var_Groups:Add(2,"Dave")
var_Group1:EventBackColor := RGB(0,255,0)
var_Group1:HeaderForeColor := var_Group1:EventBackColor
var_Group1:Visible := true
var_Group1:Title := var_Group1:Caption
var_Group2 := var_Groups:Add(3,"Enrike")
var_Group2:EventBackColor := RGB(128,128,255)
var_Group2:HeaderForeColor := var_Group2:EventBackColor
var_Group2:Visible := true
var_Group2:Title := var_Group2:Caption
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><%=%263%>"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 10:00:00"),SToD("20120620 13:30:00")):GroupID := 1
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:30:00")):GroupID := 2
var_Events:Add(SToD("20120620 13:30:00"),SToD("20120620 15:00:00")):GroupID := 3
oDCOCX_Exontrol1:EndUpdate()
|
|
82
|
How can I prevent selecting more dates in the schedule view
oDCOCX_Exontrol1:ScrollBars := exNoScroll
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
oDCOCX_Exontrol1:Calendar:SingleSel := true
|
|
81
|
How can I get ride of the control's scroll bars
oDCOCX_Exontrol1:ScrollBars := exNoScroll
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
|
|
80
|
I am hiding the Calendar section of the control, the question is how can I select another date in the scheduler
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010101")
|
|
79
|
How can I add an event to indicate the Easter Sunday
local var_Calendar as ICalendar
local var_Event as IEvent
local var_Events as IEvents
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := "month(value) in (3,4)"
var_Calendar:HighlightEvent:BackColor := RGB(128,128,128)
var_Calendar:ShowYearScroll := true
oDCOCX_Exontrol1:[Background,exCalendarSelBackColorUnFocus] := oDCOCX_Exontrol1:[Background,exCalendarSelBackColor]
oDCOCX_Exontrol1:[Background,exScheduleBorderSelColorUnFocus] := oDCOCX_Exontrol1:[Background,exCalendarSelBackColor]
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20120612 10:00:00"),SToD("20120612 14:00:00"))
var_Event:AllDayEvent := true
var_Event:Repetitive := "not(month(value) in (3,4,5)) ? 0 : ( floor(value)=(2:=floor(date(dateS('3/1/' + year(value)) + ((1:=(((255 - 11 * (year(value) mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((year(value) + int(year(value) / 4)) + =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7)))))"
var_Event:LongLabel := "EASTER of <%=year(%1)%> falls in<br><%=%1%>"
var_Event:ShortLabel := var_Event:LongLabel
|
|
78
|
I need a repetitive event happens every n-days, and stops after m-times. Can your control handle this
local var_Calendar as ICalendar
local var_Event as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesThick | exLinesSolid
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := SToD("20120101")
var_Calendar:Selection := "month(value) = 6"
var_Calendar:HighlightEvent:FontSize := 10
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20120612 10:00:00"),SToD("20120612 14:00:00"))
var_Event:Repetitive := "(value >= (0:=#6/1/2012#)) and ( (value - =:0) mod (1:=5) = 0) and (value-=:0) < (3*=:1)"
var_Event:Selected := true
|
|
77
|
How can I add a repetitive event to occur every n days
local var_Calendar as ICalendar
local var_Event as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesThick | exLinesSolid
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := "month(value) = 6"
var_Calendar:HighlightEvent:FontSize := 10
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20120612 10:00:00"),SToD("20120612 14:00:00"))
var_Event:Repetitive := "value >= #6/1/2012# and ( (value - #6/1/2012#) mod 5 = 0)"
var_Event:Selected := true
|
|
76
|
I am using the AutoHide option, just wondering if there is any event that notifies once the calendar panel shows or hides
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "End exLayoutCalendarAutoHide(7)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
METHOD OCX_Exontrol1LayoutStartChanging(Operation) CLASS MainDialog
// LayoutStartChanging event - Occurs when the control's layout is about to be changed.
OutputDebugString(String2Psz( "Start exLayoutCalendarAutoHide(7)" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
|
|
75
|
Is it possible to display the same event on multiple days
local var_Calendar as ICalendar
local var_Event as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesThick | exLinesSolid
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := SToD("20120101")
var_Calendar:Selection := "month(value) = 6"
var_Calendar:HighlightEvent:FontSize := 10
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20120612 10:00:00"),SToD("20120612 14:00:00"))
var_Event:Repetitive := "value in (#6/8/2012#,#6/11/2012#,#6/20/2012#)"
var_Event:Selected := true
|
|
74
|
How can I change the selection background color so it is the same if the control loses the focus
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:Selection := SToD("20120612")
var_Calendar:HighlightEvent:FontSize := 10
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
oDCOCX_Exontrol1:Events:Add(SToD("20120612 10:00:00"),SToD("20120612 14:00:00"))
oDCOCX_Exontrol1:[Background,exCalendarSelBackColorUnFocus] := oDCOCX_Exontrol1:[Background,exCalendarSelBackColor]
|
|
73
|
How can I add a repetitive event so it occurs every Monday
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := "month(value) = 6"
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:FontSize := 10
var_Highlight:BackColor := RGB(128,128,128)
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120612 10:00:00"),SToD("20120612 14:00:00")):Repetitive := "weekday(value) = 1"
|
|
72
|
How can I select the current month
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := "month(value) = month(date(``))"
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
|
|
71
|
How can I select the next two days
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := "(value - int(date(``))) in (1,2,0)"
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
|
|
70
|
How can I select the last two days
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := "(int(date(``)) - value) in (1,2,0)"
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
|
|
69
|
How can I select the current week
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(date(``))-1)/7))"
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
|
|
68
|
Is it possible to highlight or change the background or foreground color for the today date in the schedule panel
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exSunday
var_Calendar:Selection := "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(date(``))-1)/7))"
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
|
|
67
|
How can I display no working/non-working days in the control
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:NonworkingDays := 0
var_Calendar:ShowNonMonthDays := false
var_Calendar:FirstWeekDay := exMonday
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
|
|
66
|
The schedule displays a blue border around the selected dates. How can I get ride of that
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:ShowNonMonthDays := false
var_Calendar:Selection := SToD("20120618")
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
|
|
65
|
The calendar panel shows days that belongs to another month. How can I display just the days within the current month
oDCOCX_Exontrol1:Calendar:ShowNonMonthDays := false
|
|
64
|
Is it possible to show the non-working days with a solid color instead
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120614")
var_Calendar:Selection := "value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)"
var_Calendar:FirstWeekDay := exMonday
var_Calendar:NonworkingDaysPattern := exPatternSolid
var_Calendar:NonworkingDaysColor := RGB(224,224,224)
|
|
63
|
How can I display the now-working days in the schedule panel too
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120614")
var_Calendar:Selection := "value in (#6/14/2012#,#6/15/2012#,#6/16/2012#,#6/17/2012#)"
var_Calendar:FirstWeekDay := exMonday
oDCOCX_Exontrol1:NonworkingTimes:Add(AsString(1),"00:00","00:00",-1)
|
|
62
|
How can I make the control read-only
oDCOCX_Exontrol1:AllowCreateEvent := exDisallow
oDCOCX_Exontrol1:AllowMoveEvent := exDisallow
oDCOCX_Exontrol1:AllowResizeEvent := exDisallow
oDCOCX_Exontrol1:AllowMoveSchedule := exLeftClick
oDCOCX_Exontrol1:AllowSelectEvent := exDisallow
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
oDCOCX_Exontrol1:Events:Add(SToD("20120525 09:30:00"),SToD("20120525 13:00:00"))
|
|
61
|
How can I check/uncheck a group, so it is visible after I add it
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:Groups:Add(1,"Pro"):Visible := true
|
|
60
|
The drop down button to show groups is not visible, even I set the DisplayGroupingButton. What Can I do
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
|
|
59
|
It is possible to translate "All" to "Todos" or to something else
oDCOCX_Exontrol1:[Description,exGroupBarAll] := "(todos)"
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:Groups:Add(1,"Pro")
|
|
58
|
How can I remove the control's scroll bars
oDCOCX_Exontrol1:ScrollBars := exNoScroll
|
|
57
|
How can I select a month
oDCOCX_Exontrol1:Calendar:Selection := "month(value) = month(date(``))"
|
|
56
|
How can I display two or more dates in the scheduler (Method 2)
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120524")
var_Calendar:Selection := "value in ( #5/24/2012#, #5/25/2012# )"
|
|
55
|
How can I display two or more dates in the scheduler (Method 1)
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := "0"
var_Calendar:[SelectDate,SToD("20120524")] := true
var_Calendar:[SelectDate,SToD("20120525")] := true
|
|
54
|
How can I define a different color for nonworking part for different days
local var_Calendar as ICalendar
local var_NonworkingPattern as INonworkingPattern
local var_NonworkingPatterns as INonworkingPatterns
local var_NonworkingTimes as INonworkingTimes
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120521")
var_Calendar:Selection := "(value >= #05/21/2012#) and (value <= #05/25/2012#)"
var_Calendar:FirstWeekDay := exMonday
var_NonworkingPatterns := oDCOCX_Exontrol1:NonworkingPatterns
var_NonworkingPatterns:Add(1234,exPatternBDiagonal):Pattern:Color := RGB(255,0,0)
var_NonworkingPatterns:Add(1235,exPatternBDiagonal):Pattern:Color := RGB(0,255,0)
var_NonworkingPatterns:Add(1236,exPatternBDiagonal):Pattern:Color := RGB(0,0,255)
var_NonworkingPattern := var_NonworkingPatterns:Add(1237,exPatternFrameThick | exPatternCross)
var_NonworkingPattern:Pattern:Color := RGB(128,128,128)
var_NonworkingPattern:Pattern:FrameColor := RGB(64,64,64)
var_NonworkingPattern:BackColor := RGB(255,255,0)
var_NonworkingTimes := oDCOCX_Exontrol1:NonworkingTimes
var_NonworkingTimes:Add("weekday(value) in (0,1)","10:00","11:45",1234)
var_NonworkingTimes:Add("weekday(value) = 2","00:00","08:45",1235)
var_NonworkingTimes:Add("weekday(value) = 2","15:00","24:00",1235)
var_NonworkingTimes:Add("weekday(value) in (3,5)","12:15","13:00",1236)
var_NonworkingTimes:Add("weekday(value) = 4","13:30","15:00",1237)
oDCOCX_Exontrol1:ShowNonworkingTime := exShowNonworkingTimeSemi
oDCOCX_Exontrol1:EndUpdate()
|
|
53
|
Is it possible to show both nonworking and the events, using semi-transparent color
local var_Calendar as ICalendar
local var_NonworkingPattern,var_NonworkingPattern1 as INonworkingPattern
local var_NonworkingPatterns as INonworkingPatterns
local var_NonworkingTimes as INonworkingTimes
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120524")
var_Calendar:Selection := "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
var_NonworkingPatterns := oDCOCX_Exontrol1:NonworkingPatterns
var_NonworkingPatterns:Add(1234,exPatternBrick)
var_NonworkingPattern := var_NonworkingPatterns:Add(9871,exPatternFrameThick | exPatternYard)
var_NonworkingPattern:BackColor := RGB(255,0,0)
var_NonworkingPattern1 := var_NonworkingPatterns:Add(9872,exPatternFrameThick | exPatternYard)
var_NonworkingPattern1:BackColor := RGB(255,255,0)
var_NonworkingTimes := oDCOCX_Exontrol1:NonworkingTimes
var_NonworkingTimes:Add("1","00:00","08:45",1234)
var_NonworkingTimes:Add("weekday(value) = 5","10:00","11:45",9871)
var_NonworkingTimes:Add("weekday(value) = 4","12:00","12:35",9872)
oDCOCX_Exontrol1:Events:Add(SToD("20120525 09:30:00"),SToD("20120525 13:00:00"))
oDCOCX_Exontrol1:ShowNonworkingTime := exShowNonworkingTimeSemi
|
|
52
|
Is it possible to show the nonworking part behind, on the back
local var_Calendar as ICalendar
local var_NonworkingPattern,var_NonworkingPattern1 as INonworkingPattern
local var_NonworkingPatterns as INonworkingPatterns
local var_NonworkingTimes as INonworkingTimes
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120524")
var_Calendar:Selection := "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
var_NonworkingPatterns := oDCOCX_Exontrol1:NonworkingPatterns
var_NonworkingPatterns:Add(1234,exPatternBrick)
var_NonworkingPattern := var_NonworkingPatterns:Add(9871,exPatternFrameThick | exPatternYard)
var_NonworkingPattern:BackColor := RGB(255,0,0)
var_NonworkingPattern1 := var_NonworkingPatterns:Add(9872,exPatternFrameThick | exPatternYard)
var_NonworkingPattern1:BackColor := RGB(255,255,0)
var_NonworkingTimes := oDCOCX_Exontrol1:NonworkingTimes
var_NonworkingTimes:Add("1","00:00","08:45",1234)
var_NonworkingTimes:Add("weekday(value) = 5","10:00","11:45",9871)
var_NonworkingTimes:Add("weekday(value) = 4","12:00","12:35",9872)
oDCOCX_Exontrol1:Events:Add(SToD("20120525 09:30:00"),SToD("20120525 13:00:00"))
oDCOCX_Exontrol1:ShowNonworkingTime := exShowNonworkingTimeBack
|
|
51
|
Can you explain how the non working day patterns work and how to define
for different days of the week
local var_Calendar as ICalendar
local var_NonworkingPattern,var_NonworkingPattern1 as INonworkingPattern
local var_NonworkingPatterns as INonworkingPatterns
local var_NonworkingTimes as INonworkingTimes
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120524")
var_Calendar:Selection := "value in (#05/24/2012#,#05/25/2012#,#05/26/2012#)"
var_NonworkingPatterns := oDCOCX_Exontrol1:NonworkingPatterns
var_NonworkingPatterns:Add(1234,exPatternBrick)
var_NonworkingPattern := var_NonworkingPatterns:Add(9871,exPatternFrameThick | exPatternYard)
var_NonworkingPattern:BackColor := RGB(255,0,0)
var_NonworkingPattern1 := var_NonworkingPatterns:Add(9872,exPatternFrameThick | exPatternYard)
var_NonworkingPattern1:BackColor := RGB(255,255,0)
var_NonworkingTimes := oDCOCX_Exontrol1:NonworkingTimes
var_NonworkingTimes:Add("1","00:00","08:45",1234)
var_NonworkingTimes:Add("weekday(value) = 5","10:00","11:45",9871)
var_NonworkingTimes:Add("weekday(value) = 4","12:00","12:35",9872)
|
|
50
|
How can I add a nonworking time
local var_NonworkingTimes as INonworkingTimes
var_NonworkingTimes := oDCOCX_Exontrol1:NonworkingTimes
var_NonworkingTimes:Add("1","00:00","08:45",-1)
var_NonworkingTimes:Add("weekday(value) = weekday(date(``))","10:00","11:15",-1)
|
|
49
|
How can I get the event from the cursor
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
OutputDebugString(String2Psz( "Calendar.DateFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Calendar:[DateFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "AnchorFromPoint" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[AnchorFromPoint,-1,-1] ))
OutputDebugString(String2Psz( "DateTimeFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[DateTimeFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "TimeFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[TimeFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "TimeScaleFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[TimeScaleFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "GroupFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[GroupFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "GroupHeaderFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[GroupHeaderFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "MarkZoneFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[MarkZoneFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "NonworkingTimeFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[NonworkingTimeFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "MarkTimeFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[MarkTimeFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "EventFromPoint" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventFromPoint,-1,-1]) ))
OutputDebugString(String2Psz( "PictureFromPoint" ))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[PictureFromPoint,-1,-1] ))
RETURN NIL
local var_Events as IEvents
local var_MarkTime as IMarkTime
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowMultiDaysEvent := false
oDCOCX_Exontrol1:AllowCreateEvent := exCTRLKey | exLeftClick
oDCOCX_Exontrol1:AllowMoveEvent := exCTRLKey | exLeftClick
oDCOCX_Exontrol1:AllowMoveTimeScale := exLeftClick
oDCOCX_Exontrol1:AllowMoveSchedule := exLeftClick
oDCOCX_Exontrol1:AllowSelectEvent := exCTRLKey | exLeftClick
oDCOCX_Exontrol1:AllowResizeEvent := exLeftClick
oDCOCX_Exontrol1:Calendar:MaxMonthY := 6
oDCOCX_Exontrol1:SelectEventStyle := exLinesThicker | exLinesSolid
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:TimeScaleLabel := ""
var_MarkTime:Label := "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
var_MarkTime:LabelAlign := exBottomRight
var_MarkTime:Line := exLinesThicker | exLinesDash
var_MarkTime:BodyEventBackColor := RGB(128,0,0)
var_MarkTime:BodyEventForeColor := RGB(255,255,255)
var_MarkTime:Movable := true
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
48
|
How can I show the timer only in the chart section
local var_MarkTime as IMarkTime
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:Label := " <font ;12>timer</font> "
var_MarkTime:LabelAlign := exBottomRight
var_MarkTime:TimeScaleLabel := ""
var_MarkTime:TimeScaleLine := exNoLines
|
|
47
|
How can I let the user to move the timer from the cursor
local var_Events as IEvents
local var_MarkTime as IMarkTime
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:TimeScaleLabel := ""
var_MarkTime:Label := "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
var_MarkTime:LabelAlign := exBottomRight
var_MarkTime:Line := exLinesThicker | exLinesDash
var_MarkTime:BodyEventBackColor := RGB(128,0,0)
var_MarkTime:BodyEventForeColor := RGB(255,255,255)
var_MarkTime:Movable := true
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
46
|
How can I show the timer only in the time scale
local var_MarkTime as IMarkTime
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:TimeScaleLabel := " <font ;12>timer</font> "
var_MarkTime:Line := exNoLines
|
|
45
|
I have seen some screen shots and noticed, that you can place images on a timer. How can I do that
local var_Events as IEvents
local var_MarkTime as IMarkTime
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:StatusEventSize := 8
oDCOCX_Exontrol1:StatusEventColor := RGB(255,255,255)
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:Label := "<img>pic1</img>"
var_MarkTime:TimeScaleLabel := "<fgcolor=FF0000><b><%hh%>:<%nn%> <%AM/PM%><br><c><img>1</img>"
var_MarkTime:LabelAlign := exMiddleRight
var_MarkTime:Line := exLinesThicker | exLinesDash
var_MarkTime:Movable := true
var_MarkTime:StatusEventPattern:Type := exPatternShadow
var_MarkTime:StatusEventPattern:Color := RGB(255,0,0)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
44
|
How can I change the timer's color
local var_MarkTime as IMarkTime
local var_MarkTimes as IMarkTimes
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTimes := oDCOCX_Exontrol1:MarkTimes
var_MarkTime := var_MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:Movable := true
var_MarkTime:LineColor := RGB(0,0,255)
var_MarkTime:StatusEventBackColor := RGB(0,0,255)
var_MarkTime:TimeScaleLineColor := RGB(0,0,255)
var_MarkTime:TimeScaleLabel := "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
43
|
Can I add multiple timers with different colors
local var_Events as IEvents
local var_MarkTime,var_MarkTime1 as IMarkTime
local var_MarkTimes as IMarkTimes
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTimes := oDCOCX_Exontrol1:MarkTimes
var_MarkTime := var_MarkTimes:Add("timer1",SToD("20120524 09:35:00"))
var_MarkTime:Movable := true
var_MarkTime:StatusEventBackColor := RGB(255,0,0)
var_MarkTime1 := var_MarkTimes:Add("timer2",SToD("20120524 13:35:00"))
var_MarkTime1:Movable := true
var_MarkTime1:LineColor := RGB(0,255,0)
var_MarkTime1:StatusEventBackColor := var_MarkTime1:LineColor
var_MarkTime1:TimeScaleLineColor := var_MarkTime1:LineColor
var_MarkTime1:TimeScaleLabel := "<fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%>"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
42
|
How can I specify a different color for the status of the event that intersects with the timer
local var_Events as IEvents
local var_MarkTime as IMarkTime
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:TimeScaleLabelAlign := exTopCenter
var_MarkTime:Line := exLinesThick | exLinesHDot4
var_MarkTime:TimeScaleLine := exLinesHDot4
var_MarkTime:StatusEventBackColor := RGB(255,0,0)
var_MarkTime:Movable := true
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
41
|
How can the chart displays the events from the timer with a different color
local var_Events as IEvents
local var_MarkTime as IMarkTime
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:TimeScaleLabel := ""
var_MarkTime:Label := "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
var_MarkTime:LabelAlign := exBottomRight
var_MarkTime:Line := exLinesThicker | exLinesDash
var_MarkTime:BodyEventBackColor := RGB(128,0,0)
var_MarkTime:BodyEventForeColor := RGB(255,255,255)
var_MarkTime:Movable := true
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
40
|
Is it possible to display the timer's label on the chart, instead time scales
local var_Events as IEvents
local var_MarkTime as IMarkTime
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_MarkTime := oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_MarkTime:TimeScaleLabel := ""
var_MarkTime:Label := "<fgcolor=FF0000>Time: <b><%hh%>:<%nn%> <%AM/PM%></b><br>Date: <b><%loc_sdate%>"
var_MarkTime:LabelAlign := exBottomRight
var_MarkTime:Line := exLinesThicker | exLinesDash
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
39
|
How can I add a timer to the scheduler
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:MarkTimes:Add("timer",SToD("20120524 11:35:00"))
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
38
|
Is it possible to define the small increment to 5 minutes
oDCOCX_Exontrol1:DayEndTime := "10:00"
oDCOCX_Exontrol1:TimeScales:[Item,0]:MinorTimeRuler := "00:05"
|
|
37
|
How can I change the time format to 24 hours to be displayed in the control's time scale
local var_TimeScale as ITimeScale
var_TimeScale := oDCOCX_Exontrol1:TimeScales:[Item,0]
var_TimeScale:MajorTimeLabel := "<%hh%>:<%nn%>"
var_TimeScale:Width := 32
|
|
36
|
How can I change the time zone
local var_TimeScale as ITimeScale
oDCOCX_Exontrol1:DayEndTime := "13:00"
var_TimeScale := oDCOCX_Exontrol1:TimeScales:[Item,0]
var_TimeScale:TimeZone := "+03:00"
var_TimeScale:Caption := var_TimeScale:TimeZone
|
|
35
|
Is it possible to add more time scales
local var_TimeScale as ITimeScale
oDCOCX_Exontrol1:DayEndTime := "13:00"
var_TimeScale := oDCOCX_Exontrol1:TimeScales:Add("+03:00")
var_TimeScale:AlignLeft := false
var_TimeScale:Caption := "EST <b>+03"
|
|
34
|
How can I get any event to be notified if a picture or icon is clicked (Method 2)
METHOD OCX_Exontrol1PictureClick(Key) CLASS MainDialog
// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
OutputDebugString(String2Psz( AsString(Key) ))
RETURN NIL
local var_Events as IEvents
local var_ExPictures as IExPictures
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ShowSelectEvent := false
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_ExPictures := oDCOCX_Exontrol1:Pictures
var_ExPictures:Add("pic1","c:\exontrol\images\card.png")
var_ExPictures:Add("pic2","c:\exontrol\images\diary.png")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):Pictures := "pic1/pic2"
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00")):Pictures := "1,2/3"
var_Events:Add(SToD("20120524 13:00:00"),SToD("20120524 15:45:00")):ExtraPictures := "pic2/1"
oDCOCX_Exontrol1:EndUpdate()
|
|
33
|
How can I display a tooltip for an anchor element, for instance
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local s as USUAL
s := oDCOCX_Exontrol1:[AnchorFromPoint,-1,-1]
oDCOCX_Exontrol1:ShowToolTip(AsString(s),"info","","+16",nil)
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ShowSelectEvent := false
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00")):ExtraLabel := "<a remove>remove</a>"
var_Events:Add(SToD("20120524 13:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
32
|
Is it possible to prevent selecting events
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ShowSelectEvent := false
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00")):Selected := true
var_Events:Add(SToD("20120524 13:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
31
|
How can I get any event to be notified if a picture or icon is clicked (Method 1)
METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
// AnchorClick event - Occurs when an anchor element is clicked.
OutputDebugString(String2Psz( AsString(AnchorID) ))
RETURN NIL
local var_Events as IEvents
local var_ExPictures as IExPictures
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ShowSelectEvent := false
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_ExPictures := oDCOCX_Exontrol1:Pictures
var_ExPictures:Add("pic1","c:\exontrol\images\card.png")
var_ExPictures:Add("pic2","c:\exontrol\images\diary.png")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):ExtraLabel := "<a pic1><img>pic1:32</img></a>"
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00")):ExtraLabel := "<a pic2><img>pic2:48</img></a>"
var_Events:Add(SToD("20120524 13:45:00"),SToD("20120524 15:45:00")):LongLabel := "Start: <%=%1%><br>End: <%=%2%><br><br>Icon: <a 1><img>1</img></a> - <a 2><img>2</img></a>"
oDCOCX_Exontrol1:EndUpdate()
|
|
30
|
How can I display a picture or an icon to an event
local var_Event as IEvent
local var_Events as IEvents
local var_ExPictures as IExPictures
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_ExPictures := oDCOCX_Exontrol1:Pictures
var_ExPictures:Add("pic1","c:\exontrol\images\card.png")
var_ExPictures:Add("pic2","c:\exontrol\images\diary.png")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):ExtraLabel := "<img>pic1:32</img>"
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00")):ExtraLabel := "<img>pic2:48</img>"
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00")):Pictures := "1/2,3/pic1"
var_Event := var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
var_Event:ExtraPictures := "1/2"
var_Event:Pictures := "1,pic1,2,pic2/3"
oDCOCX_Exontrol1:EndUpdate()
|
|
29
|
Is it possible to display the group's caption or ID on the event's label
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Visible := true
var_Group:EventBackColor := RGB(128,128,128)
var_Group:Title := "1'st Group"
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Visible := true
var_Group1:EventBackColor := RGB(255,0,0)
var_Group1:Title := "2'nd Group"
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):GroupID := 1
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 2
var_Events:Add(SToD("20120524 12:30:00"),SToD("20120524 14:30:00")):GroupID := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
28
|
How can I show the events from different groups using the same color
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:ApplyGroupingColors := false
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Visible := true
var_Group:EventBackColor := RGB(128,128,128)
var_Group:Title := "1'st Group"
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Visible := true
var_Group1:EventBackColor := RGB(255,0,0)
var_Group1:Title := "2'nd Group"
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):GroupID := 1
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 2
var_Events:Add(SToD("20120524 12:30:00"),SToD("20120524 14:30:00")):GroupID := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
27
|
Is it possible to hide the grid lines in the calendar panel
oDCOCX_Exontrol1:Calendar:ShowGridLines := exNoLines
|
|
26
|
How can I control the number of months displayed on the calendar pane
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:MaxMonthX := 2
var_Calendar:MaxMonthY := 2
|
|
25
|
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 2)
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:FirstWeekDay := exMonday
var_Calendar:MonthNames := "J-A F-E M-A A-P M-A J-U J-L A-U S-P O-C N-V D-C"
var_Calendar:WeekDays := "Du Lu Ma Mi Jo Vi Si"
var_Calendar:TodayCaption := "A z i"
|
|
24
|
I'm currently evaluating your eXSchedule product and i'm trying to have the header display the month according to local settings. How can I do that (Method 1)
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:FirstWeekDay := var_Calendar:LocFirstWeekDay
var_Calendar:MonthNames := var_Calendar:LocMonthNames
var_Calendar:WeekDays := var_Calendar:LocWeekDays
var_Calendar:AMPM := var_Calendar:LocAMPM
|
|
23
|
How can I show the events grouped
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Visible := true
var_Group:EventBackColor := RGB(128,128,128)
var_Group:HeaderBackColor := var_Group:EventBackColor
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Visible := true
var_Group1:EventBackColor := RGB(255,0,0)
var_Group1:HeaderBackColor := var_Group1:EventBackColor
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):GroupID := 1
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 2
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00")):GroupID := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
22
|
How can I show 2 or more days in the scheduler
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := "0"
var_Calendar:[SelectDate,SToD("20120524")] := true
var_Calendar:[SelectDate,SToD("20120525")] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
21
|
Is it possible to change the first week day
oDCOCX_Exontrol1:Calendar:FirstWeekDay := exMonday
|
|
20
|
How can I define the new starting / ending points of the day
oDCOCX_Exontrol1:DayStartTime := "07:30"
oDCOCX_Exontrol1:DayEndTime := "12:45"
|
|
19
|
Is it possible to change the label to be displayed when user moves the events
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:UpdateEventsLabel := "Start: <%=%1%><br>End: <%=%2%>"
oDCOCX_Exontrol1:UpdateEventsLabelAlign := exMiddleCenter
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
18
|
How can I change the default tooltip when adding new events
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DefaultEventTooltip := "Start: <%=%1%><br>End: <%=%2%>"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
17
|
How can I change the default label when adding new events
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:CreateEventLabel := "Start: <%=%1%><br>End: <%=%2%>"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
16
|
How can I change the default label when adding new events
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DefaultEventLongLabel := "Start: <%=%1%><br>End: <%=%2%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
15
|
How can I programatically add events to the control
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
14
|
How can I hide the status part of a specific event
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):ShowStatus := false
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
13
|
Is it possible to change the status color for a specific event
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):StatusColor := RGB(255,0,0)
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
12
|
Is it possible to change the background color for a specific event
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):BodyBackColor := RGB(255,0,0)
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
11
|
Can I change the size of the status to be larger
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:StatusEventSize := 8
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
10
|
I do not need a status, can I hide it
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:ShowStatusEvent := false
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
9
|
Is it possible to change the status's default background color
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:StatusEventColor := RGB(255,0,0)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
8
|
How can I change the visual appearance of the Events (Method 2)
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:VisualDesign := "gBFLBWIgBAEHhEJAEGg55hAvCcHAkIbD/i0JE0KhYnjQDFEaAQDhEMAAIhAPhBYKA6KhyMJjNZiMJyEA2EAxAUIk0HlEHlUsl0wmU0GYgGcig87AE9AE/lsvmMzEAym8BA=="
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
7
|
How can I change the visual appearance of the Events (Method 1)
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:BodyEventBackColor := 0x1000000
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
6
|
How can I show the scheduler panel only, so no Calendar panel is shown
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
|
|
5
|
May I display the calendar in the right side of the control
oDCOCX_Exontrol1:OnResizeControl := exCalendarFit | exChangePanels
|
|
4
|
Is it possible to disable resizing the vertical splitter
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter | exResizePanelRight
|
|
3
|
How can I show the Calendar panel only
oDCOCX_Exontrol1:OnResizeControl := exHideSplitter | exResizePanelRight
|
|
2
|
Is there an AutoHide option for the Calendar panel
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
|
|
1
|
How can I hide the Calendar panel
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
|